home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / examples / num.st < prev    next >
Text File  |  1998-09-30  |  1KB  |  54 lines
  1. Class Main
  2. [
  3.    testChars
  4.       ($A max: $a) print.
  5.       (4 between: 3.1 and: (17/3)) print.
  6.       ($A < $0) print.
  7.       $A asciiValue print.
  8.       $A asString print.
  9.       $A printString print.
  10.       $A isVowel print.
  11.       $A digitValue print
  12. |
  13.    testNums
  14.       3 + 4.1 ; print.
  15.       3.14159 exp print.
  16.       1 pi exp print.
  17.       3.5 radians print.
  18.       13 roundTo: 5 ; print.
  19.       13 truncateTo: 5 ; print.
  20.       (smalltalk perform: #+ withArguments: #(3 4.1) ) print.
  21.       (smalltalk doPrimitive: 10 withArguments: #(3 4) ) print
  22. |
  23.    testInts
  24.       5 allMask: 4 ; print.
  25.       4 allMask: 5 ; print.
  26.       5 anyMask: 4 ; print.
  27.       5 bitAnd: 3 ; print.
  28.       5 bitOr: 3 ; print.
  29.       5 bitInvert print.
  30.       254 radix: 16 ; print.
  31.       5 reciprocal print.
  32.       -5 // 4 ; print.
  33.       -5 quo: 4 ; print.
  34.       -5 \\ 4 ; print.
  35.       -5 rem: 4 ; print.
  36.       4 factorial print.
  37. |
  38.    testFloats
  39.       2.1 ^ 4 ; print.
  40.       0.5 arcSin print.
  41.       4.3 sqrt print.
  42.       256 log: 10 ; print.
  43.       16rC.ABC print.
  44.       (14.5408 radix: 16) print.
  45.       0.5236 radians sin print.
  46.       (100 @ 12) transpose print.
  47. |
  48.    main
  49.       self testChars.
  50.       self testNums.
  51.       self testInts.
  52.       self testFloats.
  53. ]
  54.